home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 90 / CD Actual 90.iso / Software3D / VirtualLight / VLight1.3win32.exe / Examples / Level1 / Dispmap1.vs < prev    next >
Encoding:
Text File  |  2002-10-07  |  601 b   |  22 lines
  1. ReadArchive "statics.vib"
  2.  
  3. Declare met = Shader [ PlainSurface [
  4.   Color '.95,.95,1'
  5.   Kd 0.8
  6.   Ks 0.2
  7.   Kr 0.1
  8.   GaussianSpecularBRDF 15
  9.  ]
  10. ]
  11.  
  12. Declare veins = SpectrumOfColors(
  13.      [0.000, '0.898, 0.898, 0.851', 0.212, '0.969, 0.980, 0.875']
  14.      [0.212, '0.969, 0.980, 0.875', 0.424, '0.859, 0.859, 0.859']
  15.      [0.424, '0.859, 0.859, 0.859', 0.627, '0.992, 0.922, 0.659']
  16.      [0.627, '0.992, 0.922, 0.659', 0.881, '0.937, 0.965, 0.902']
  17.      [0.881, '0.937, 0.965, 0.902', 1.01,  '0.898, 0.898, 0.851'])
  18.  
  19. Declare veins_pattern = Shader [
  20.  FunctionalSurface [ Kd 0.85 Color veins[Agate] ]
  21. ]
  22.